home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 6
/
Publication_06_19xx_High-Tech_de_Side_B.d64
/
d 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
131 lines
1000 poke56334,peek(56334)or1:rem(NULL)
1010 poke204,1:t=gt:m=gm:j=gj:gosub2110:at=x:rem(NULL)
1020 zu=int((40-len(n$))/2):ifhj/4<>int(hj/4)andhm=1thenl(2)=28:rem
1030 ifhm>3and(hj+1)/4<>int((hj+1)/4)thenl(2)=28:rem(NULL)
1040 open7,4,7:rem(NULL)
1050 print#7,chr$(14)" [194]iorhythmus von":print#7:print#7:rem
1060 print#7,chr$(14)left$(" ",zu);:rem(NULL)
1070 print#7,chr$(18)n$
1080 print#7:print#7:rem(NULL)
1090 n$="geboren am "+t$+",d."+str$(gt)+". "+m$(gm)+str$(gj):rem(NULL)
1100 zu=int((80-len(n$))/2):rem(NULL)
1110 print#7,left$(" ",zu)n$:print#7
1120 print#7:n$="fuer die [218]eit vom 1. "+m$(hm)+str$(hj)
1130 zu=int((80-len(n$))/2)
1140 print#7,left$(" ",zu)n$:print#7
1150 n$="bis zum"
1160 ifhm=1thenn$=n$+" 31. [196]ezember"+str$(hj):goto1180
1170 n$=n$+str$(l(hm-1))+". "+m$(hm-1)+str$(hj+1)
1180 zu=int((80-len(n$))/2)
1190 print#7,left$(" ",zu)n$
1200 print#7:print#7:print#7:print#7:print#7:ifhm=1then1250
1210 fora=1tohm-1:forb=1to11
1220 m$(0)=m$(b):m$(b)=m$(b+1):m$(b+1)=m$(0)
1230 l(0)=l(b):l(b)=l(b+1):l(b+1)=l(0):m(0)=m(b):m(b)=m(b+1):m(b+1)=m(0)
1240 nextb,a:m(0)=0
1250 c=0:fora=1to12:ifa>1andm$(a)="[202]anuar"thenhj=hj+1:c=1
1260 m$(a)=m$(a)+str$(hj):zu=int((21-len(m$(a)))/2)
1270 m$(a)=right$(" "+m$(a),len(m$(a))+zu)
1280 m$(a)=left$(m$(a)+" ",21):next:ifc=1thenhj=hj-1
1290 fora=1to12step3
1300 t=1:m=m(a):j=hj:ifm(a-1)>m(a)thenhj=hj+1:j=hj
1310 gosub2110
1320 ta=x-at:g1=ta-33*int(ta/33):s1=ta-28*int(ta/28):k1=ta-23*int(ta/23)
1330 al(a)=ta:t=1:m=m(a+1):j=hj:ifm(a)>m(a+1)thenhj=hj+1:j=hj
1340 gosub2110
1350 ifl(a+1)=28thenx=x+3
1360 ifl(a+1)=29thenx=x+2
1370 ta=x-at:g2=ta-33*int(ta/33):s2=ta-28*int(ta/28):k2=ta-23*int(ta/23)
1380 al(a+1)=ta:t=1:m=m(a+2):j=hj:ifm(a+1)>m(a+2)thenhj=hj+1:j=hj
1390 gosub2110
1400 ta=x-at:g3=ta-33*int(ta/33):s3=ta-28*int(ta/28):k3=ta-23*int(ta/23)
1410 al(a+2)=ta:print#7," "m$(a)" "m$(a+1)" "m$(a+2):print#7
1420 s1$=chr$(45)+chr$(45)+chr$(45)+"[206][197][199]."+chr$(45)+chr$(45)+chr$(45)
1430 s1$=s1$+chr$(45)+chr$(45)+chr$(45)+chr$(45)+"[208][207][211]."
1440 s1$=s1$+chr$(45)+chr$(45)+chr$(45)
1450 print#7," "s1$" "s1$" "s1$
1460 forb=1to31:b$=right$(str$(b),2)
1470 s1$=".........."+chr$(125)+"..........":s2$=s1$:s3$=s1$
1480 ifb>l(a)then1530
1490 g1=g1+1:s1=s1+1:k1=k1+1
1500 ifg1>33theng1=1
1510 ifs1>28thens1=1
1520 ifk1>23thenk1=1
1530 ifb>l(a+1)then1580
1540 g2=g2+1:s2=s2+1:k2=k2+1
1550 ifg2>33theng2=1
1560 ifs2>28thens2=1
1570 ifk2>23thenk2=1
1580 ifb>l(a+2)then1630
1590 g3=g3+1:s3=s3+1:k3=k3+1
1600 ifg3>33theng3=1
1610 ifs3>28thens3=1
1620 ifk3>23thenk3=1
1630 :
1640 ifb>l(a)thenprint#7," ";:goto1690
1650 s1$=left$(s1$,g(g1)-1)+"[199]"+mid$(s1$,g(g1)+1)
1660 s1$=left$(s1$,s(s1)-1)+"[211]"+mid$(s1$,s(s1)+1)
1670 s1$=left$(s1$,k(k1)-1)+"[203]"+mid$(s1$,k(k1)+1)
1680 print#7,b$" "s1$;
1690 ifb>l(a+1)thenprint#7," ";:goto1740
1700 s2$=left$(s2$,g(g2)-1)+"[199]"+mid$(s2$,g(g2)+1)
1710 s2$=left$(s2$,s(s2)-1)+"[211]"+mid$(s2$,s(s2)+1)
1720 s2$=left$(s2$,k(k2)-1)+"[203]"+mid$(s2$,k(k2)+1)
1730 print#7," "b$" "s2$;
1740 ifb>l(a+2)thenprint#7," ";:goto1790
1750 s3$=left$(s3$,g(g3)-1)+"[199]"+mid$(s3$,g(g3)+1)
1760 s3$=left$(s3$,s(s3)-1)+"[211]"+mid$(s3$,s(s3)+1)
1770 s3$=left$(s3$,k(k3)-1)+"[203]"+mid$(s3$,k(k3)+1)
1780 print#7," "b$" "s3$
1790 nextb:print#7:print#7
1800 nexta:print#7:print#7:print#7:print#7
1810 print#7,"[206]ach der [212]heorie des [194]iorhythmus gibt es 3 [218]yklen in [201]hrem [204]eben";
1820 print#7,", die mit":print#7,"dem [212]ag der [199]eburt beginnen:":print#7
1830 print#7," [199] = geistiger [218]ustand, [218]yklusdauer 33 [212]age"
1840 print#7," [211] = seelischer [218]ustand, [218]yklusdauer 28 [212]age"
1850 print#7," [203] = koerperlicher [218]ustand,[218]yklusdauer 23 [212]age"
1860 print#7:print#7,"[201]hr allgemeines [215]ohlbefinden wird allerdings nicht nur";
1870 print#7," vom [194]iorhythmus":print#7,"beeinflusst, sondern ";
1880 print#7," auch von [203]rankheiten, [211]tress und [213]mwelteinfluessen.":print#7
1890 print#7,"[196]a sich die [215]issenschaft bis heute noch nicht darueber ";
1900 print#7," einig ist, ob":print#7,"und in wie weit der [194]iorhythmus unser ";
1910 print#7,"[204]eben beeinflusst, sollten [211]ie nicht":print#7,"unbedingt nach den";
1920 print#7," [203]urven leben.":print#7
1930 print#7,"[211]ollten [211]ie also mal einen schlechten [212]ag erwischen und die ";
1940 print#7,"[203]urven des":print#7,"[194]iorhythmus im negativen [194]ereich sein,";
1950 print#7," dann wissen [211]ie jedenfalls wer":print#7,"[211]chuld an [201]hrer";
1960 print#7," [214]erfassung ist."
1970 fora=1to16:readav:ifav=>al(1)andav<=al(12)+l(12)thena=16:goto1990
1980 nexta:goto2090
1990 fora=1to12:ifav=>al(a)andav<=al(a)+l(a)thenb=a:a=12:goto2010
2000 nexta:
2010 fora=2tob:ifm(a-1)>m(a)thenj1=j1+1
2020 nexta:t=av-al(b):m=m(b):j=j1:gosub2110
2030 print#7,"----------------------------------------";
2040 print#7,"----------------------------------------"
2050 print#7:print#7:print#7,"[201]ch habe noch einen [199]rund zum [198]eiern fuer [211]ie :"
2060 print#7
2070 print#7,"[193]m "t$", dem "right$(str$(t),2)"."right$(str$(m(b)),2)".";j1;
2080 print#7,"werden [211]ie"av"[212]age alt"
2090 close7
2100 print" noch einmal ? (j/n)"
2102 geta$:ifa$<>"n"anda$<>"j"then2102
2104 ifa$="n"thenforx=2150to2250:pokex,0:next:sys64738
2106 run
2110 rem alter und wochentag
2120 z=0:ifm<2theny=(m-1)*31:goto2160
2130 ifj/4<>int(j/4)then2150
2140 ifj/100<>int(j/100)thenz=1
2150 y=int((306*m-324)/10)
2160 z=z+int(j-1)*365+int((j-1)/4)
2170 z=z-int((j-1)/100)+int((j-1)/400)
2180 x=z+y+t:w=(x-int(x/7)*7)+1
2190 onwgoto2200,2210,2220,2230,2240,2250,2260
2200 t$="[211]onntag":return
2210 t$="[205]ontag":return
2220 t$="[196]ienstag":return
2230 t$="[205]ittwoch":return
2240 t$="[196]onnerstag":return
2250 t$="[198]reitag":return
2260 t$="[211]amstag":return